1 SCREEN 0,0,0
5 SCREEN 2:SCREEN 3
6 DIM N$(30):DIM ZZ(2900):DIM MS(50):DIM LX(50):DIM LY(50):DIM PX(50):DIM PY(50):DIM QX(30):DIM QY(30):DIM WX(30):DIM WY(30):DIM EX(30):DIM EY(30):DIM JX(30):DIM JY(30):DIM SC$(15):DIM NM$(15):DIM C1(50):DIM C2(50):DIM C3(50):DIM C4(50)
7 RESTORE 7:DATA BMD,150,ROV,100,REX,075,SID,050,MAX,040,BOB,030,SAM,020,OXO,010,ZEN,008,YOB,005:FOR A=1 TO 10:READ NM$(A),SC$(A):NEXT
10 DIM A(50):DIM B(50):DIM C(50):DIM D(50):DIM E(50):DIM F(50):DIM G(50):DIM H(50):DIM I(50):DIM J(50):DIM K(50):DIM L(50):DIM M(50):DIM N(50):DIM O(50):DIM P(50):DIM Q(50):DIM R(50):DIM S(50):DIM T(50):DIM U(50):DIM V(50):DIM W(50):DIM X(50):DIM Y(50)
15 DIM Z(50):DIM A1(50):DIM A2(50):DIM A3(50):DIM A4(50):DIM A5(50):DIM A6(50):DIM A7(50):DIM A8(50):DIM A9(50):DIM LOGO(50):DIM TITLE(150)
19 FOR P=0 TO 15:PALETTE P,0:NEXT
20 BLOAD "EXPO.SPR":OPEN "I",#1,"EXPO.LOC"
25 FOR Z=1 TO 37
30 INPUT #1,A,B,C,D
35 IF Z=1 THEN GET(A,B)-(C,D),A
36 IF Z=2 THEN GET(A,B)-(C,D),B
37 IF Z=3 THEN GET(A,B)-(C,D),C
38 IF Z=4 THEN GET(A,B)-(C,D),D
39 IF Z=5 THEN GET(A,B)-(C,D),E
40 IF Z=6 THEN GET(A,B)-(C,D),F
41 IF Z=7 THEN GET(A,B)-(C,D),G
42 IF Z=8 THEN GET(A,B)-(C,D),H
43 IF Z=9 THEN GET(A,B)-(C,D),I
44 IF Z=10 THEN GET(A,B)-(C,D),J
45 IF Z=11 THEN GET(A,B)-(C,D),K
46 IF Z=12 THEN GET(A,B)-(C,D),L
47 IF Z=13 THEN GET(A,B)-(C,D),M
48 IF Z=14 THEN GET(A,B)-(C,D),N
49 IF Z=15 THEN GET(A,B)-(C,D),O
50 IF Z=16 THEN GET(A,B)-(C,D),P
51 IF Z=17 THEN GET(A,B)-(C,D),Q
52 IF Z=18 THEN GET(A,B)-(C,D),R
53 IF Z=19 THEN GET(A,B)-(C,D),S
54 IF Z=20 THEN GET(A,B)-(C,D),T
55 IF Z=21 THEN GET(A,B)-(C,D),U
56 IF Z=22 THEN GET(A,B)-(C,D),V
57 IF Z=23 THEN GET(A,B)-(C,D),W
58 IF Z=24 THEN GET(A,B)-(C,D),X
59 IF Z=25 THEN GET(A,B)-(C,D),Y
60 IF Z=26 THEN GET(A,B)-(C,D),Z
61 IF Z=27 THEN GET(A,B)-(C,D),A1
62 IF Z=28 THEN GET(A,B)-(C,D),A2
63 IF Z=29 THEN GET(A,B)-(C,D),A3
64 IF Z=30 THEN GET(A,B)-(C,D),A4
65 IF Z=31 THEN GET(A,B)-(C,D),A5
66 IF Z=32 THEN GET(A,B)-(C,D),A6
67 IF Z=33 THEN GET(A,B)-(C,D),A7
68 IF Z=34 THEN GET(A,B)-(C,D),A8
69 IF Z=35 THEN GET(A,B)-(C,D),A9
71 IF Z=36 THEN GET(A,B)-(C,D),TITLE
72 IF Z=37 THEN GET(A,B)-(C,D),LOGO
73 NEXT:CLOSE
74 GET(75,154)-(83,164),C1:GET(88,159)-(114,164),C2:GET(118,159)-(122,164),C3:GET(126,150)-(136,164),C4:CLS:BLOAD"EXPOPIC.LOD"
81 FOR P=0 TO 15:PALETTE P,P:NEXT:WHILE INKEY$<>" ":WEND
85 SCREEN 2:SCREEN 3:SOUND ON:PLAY "MB":VIEW PRINT 1 TO 25
90 FOR A=1 TO 40:PSET(RND*159,RND*199),7+RND*2:SOUND RND*500,.1,15,0:NEXT:PUT(0,183),LOGO:PUT(143,183),LOGO:FOR V=15 TO 0 STEP -1:SOUND RND*2000,.9,V,0:SOUND RND*100,.9,V,1:NOISE 4,V,.9:NEXT:PUT(59,0),TITLE:RESTORE 400:V1=15:V2=0:B=0:D=1.3:V3=10:RT=0
91 COLOR 12:LOCATE 8,4:PRINT "BY B.DEFOREST":GOSUB 500
92 COLOR 13:LOCATE 10,2:PRINT "(C)1990 RUFUS Pro.":GOSUB 500
93 COLOR 9:LOCATE 15,5:PRINT "1: START":LOCATE 17,5:PRINT "2: INFO":LOCATE 19,5:PRINT "3: QUIT":GOSUB 500
94 A$=INKEY$:IF A$="3" THEN SCREEN 2:SOUND ON:SCREEN 0:PRINT "Tandy DOS V2.11":NEW ELSE IF A$="1" THEN SOUND ON:PLAY "MB":GOTO 100 ELSE IF A$="2" THEN 95 ELSE GOSUB 505:GOTO 94
95 CLS:PUT(59,0),TITLE:PUT(20,40),A3,PSET:PUT(18,38),A,PSET:PUT(20,80),A3,PSET:PUT(18,78),B,PSET:PUT(20,120),A3,PSET:PUT(18,118),F,PSET:PUT(20,160),A3,PSET:PUT(18,158),E,PSET
96 COLOR 9:LOCATE 6,6:PRINT "~GRASS~":LOCATE 7,6:PRINT "(Ok)":LOCATE 11,6:PRINT "~WATER~":LOCATE 12,6:PRINT "(Saps Energy)":LOCATE 16,6:PRINT "~STONE WALL~":LOCATE 17,6:PRINT "(No go)"
97 LOCATE 21,6:PRINT "~Turf~":LOCATE 22,6:PRINT "(Saps Energy)":WHILE INKEY$<>" ":GOSUB 505:WEND:CLS:PUT(59,0),TITLE:PUT(20,40),B:PUT(18,38),J,PSET:PUT(20,80),B:PUT(18,78),I,PSET:PUT(20,120),B:PUT(18,118),K,PSET:PUT(20,160),B:PUT(18,158),L,PSET
98 COLOR 14:LOCATE 6,6:PRINT "~LEVEL EXIT~":LOCATE 11,6:PRINT "~EXIT KEY~":LOCATE 16,6:PRINT "~DOOR~":LOCATE 21,6:PRINT "~TELEPORT~":WHILE INKEY$<>" ":GOSUB 505:WEND
99 CLS:PUT(59,0),TITLE:GOSUB 500:PUT(0,183),LOGO:PUT(143,183),LOGO:GOTO 91
100 CLS
105 S=0:LIFE=80:LV=0:KEYS=0:L2=0:Z1=0:Z2=0:Z3=0:Z4=0:Z5=0:JOY=0:PK=0:TKYS=100:Z6=0:WLK=0
106 FL$=STRING$(40,"1")
110 PUT(138,5),Z:PUT(138,40),A1:PUT(140,80),Y:PUT(2,190),S:FOR A=20 TO 100 STEP 5:PUT(A,189),R:NEXT:PUT(139,175),T,PSET:L$=HEX$(LV):L2$=STRING$(2-LEN(L$)," "):COLOR 14:LOCATE 3,18:PRINT L2$+L$:PUT(2,175),C2
111 FOR V=15 TO 0 STEP -1:SOUND 1,1,V,0:SOUND 100,1,V,1:NEXT:GOTO 980
115 RESTORE 150:FOR N=1 TO 25:READ N$(N):NEXT
120 GOTO 200
150 DATA 33333133313333313333333333333333313313@3
151 DATA 3333333333333331113111111311111333331333
152 DATA 3333313331111333333133133313331311111311
153 DATA 1131111311331331333133331313331333333333
154 DATA 3331333333333331113133131311131311111333
155 DATA 33311131113@1111333333331333331313331131
156 DATA 311133333133133333313313331311131333313@
157 DATA 3333331331111313111133111113331333333133
158 DATA 1311331133133313333333133313131311111133
159 DATA 3331331333131313131113133333133333333333
160 DATA 3331111113131313133133331113111111333333
161 DATA 3@33333313331333333133333133333333331111
162 DATA 33333331100000000000000000A0000000000000
163 DATA 1111111110000A0000A00000A00000000A00A000
164 DATA 0000000022222222223332222222222000000000
165 DATA 000000A2222222222223222222222222A00A0000
166 DATA 200000021111111111131111111111122A0000AA
167 DATA 0200002211111333133333333111111220000A00
168 DATA 2220A022131333131311113331331312200A0000
169 DATA 0222003333131113133133111133331220050500
170 DATA 02200A2213111313331133333331151220500000
171 DATA 22A5002213333313333333133331*512205A0500
172 DATA 0000502211111111111111111111111220505050
173 DATA 055A000222222222222222222222222205505500
174 DATA 0505055A05050505005005055505050500505050
200 Y1=-21:FOR YY=Y-3 TO Y+4:Y1=Y1+21:X1=-15
205 IF YY<1 OR YY>25 THEN A$=FL$ ELSE A$=N$(YY)
210 FOR XX=X-4 TO X+4:X1=X1+15
215 IF XX<1 OR XX>40 THEN B$="1" ELSE B$=LEFT$(A$,XX):B$=RIGHT$(B$,1)
220 GOSUB 900
225 NEXT
230 NEXT:COLOR 7:S$=STR$(S):S$=RIGHT$(S$,LEN(S$)-1):S2$=STRING$(3-LEN(S$),"0"):LOCATE 8,18:PRINT S2$+S$:GET(65,69)-(75,89),MS
231 L$=HEX$(LV):L2$=STRING$(2-LEN(L$)," "):COLOR 14:LOCATE 3,18:PRINT L2$+L$
232 DR=0:A=900:FOR V=15 TO 0 STEP -2:DR=DR+1:A=A-25:IF DR=5 THEN DR=1
233 PUT(65,69),MS,PSET:IF DR=1 THEN PUT(65,69),O,PSET ELSE IF DR=2 THEN PUT(65,69),N,PSET ELSE IF DR=3 THEN PUT(65,69),Q,PSET ELSE PUT(65,69),P,PSET
234 SOUND RND*2000,.5,V,0:SOUND RND*1000,.5,V,1:NOISE 7,V,.6:NEXT:PUT(65,69),MS,PSET
235 IF Y-1<1 THEN UP=1 ELSE A$=N$(Y-1):UP$=LEFT$(A$,X):UP$=RIGHT$(UP$,1):UP=VAL(UP$)
236 GET(65,69)-(75,79),MS
237 IF DR=1 THEN PUT(65,69),O,PSET ELSE IF DR=2 THEN PUT(65,69),N,PSET ELSE IF DR=3 THEN PUT(65,69),Q,PSET ELSE PUT(65,69),P,PSET
238 A$=N$(Y):SQ$=LEFT$(A$,X):SQ$=RIGHT$(SQ$,1):SQ=VAL(SQ$)
240 IF Y+1>25 THEN DN=1 ELSE A$=N$(Y+1):DN$=LEFT$(A$,X):DN$=RIGHT$(DN$,1):DN=VAL(DN$)
241 IF X-1<1 THEN LF=1 ELSE A$=N$(Y):LF$=LEFT$(A$,X-1):LF$=RIGHT$(LF$,1):LF=VAL(LF$)
242 IF SQ>5 OR SQ=3 OR SQ=4 THEN 250 ELSE IF SQ$="5" AND WLK>0 THEN WLK=WLK-1:IF WLK=0 THEN PUT(142,150),C4 ELSE IF SQ$="2" AND WLK>0 THEN WLK=WLK-1:IF WLK=0 THEN PUT(142,150),C4
243 IF SQ$="5" THEN FOR A=200 TO 300 STEP 20:SOUND A,.7,15,0:SOUND A-(A*2),.7,15,1:NEXT:FOR V=14 TO 5 STEP -1:NOISE 6,V,1:VV=15-V:NOISE 5,VV,1:NEXT:FOR LIFE=LIFE TO LIFE-2 STEP -1:LINE(LIFE+25,189)-(LIFE+30,199),0:NEXT:LIFE=LIFE+1:GOSUB 725
244 IF SQ$="2" THEN FOR V=10 TO 15:NOISE 4,V,1:NEXT:FOR V=15 TO 3 STEP -1:NOISE 4,V,1:NEXT:LIFE=LIFE-1:LINE(LIFE+25,189)-(LIFE+30,199),0:GOSUB 730
246 IF SQ>0 THEN 250 ELSE IF SQ$="@" THEN GOSUB 740:GOSUB 955
247 IF SQ$="*" THEN GOSUB 975 ELSE IF SQ$="C" THEN GOSUB 735:GOSUB 860
248 IF SQ$="!" THEN GOSUB 800 ELSE IF SQ$="+" THEN GOSUB 850
249 IF SQ$="&" THEN GOSUB 810 ELSE IF SQ$="?" THEN GOSUB 830:IF S<1 THEN S=0
250 IF X+1>40 THEN RT=1 ELSE A$=N$(Y):RT$=LEFT$(A$,X+1):RT$=RIGHT$(RT$,1):RT=VAL(RT$)
251 IF LIFE<20 THEN FOR V=15 TO 10 STEP -1:SOUND 1,1,V,0:NEXT:FOR V=15 TO 10 STEP -1:SOUND 1,1,V,0:NEXT:GOSUB 745
252 RD1=RD1+1:IF RD1=15 THEN RD1=0:RD2=RD2+1:RX=115-(RD2*5):FOR V=15 TO 5 STEP -2:FOR A=500 TO 220 STEP -35:SOUND A,.5,V,0:SOUND A*9,.5,V,1:SOUND RND*500,.3,V,2:NEXT:NEXT:PUT(RX,175),C3:IF RD2=17 THEN 1000 ELSE IF RD2=14 AND Z6=0 THEN GOSUB 750
259 OX=X:OY=Y:ODR=DR:IF JOY=1 THEN 266
260 A$=INKEY$:IF A$="" THEN 260
261 IF A$="4" AND LF=1 THEN NOISE 0,15,1 ELSE IF A$="4" THEN X=X-1:DR=1:GOTO 300
262 IF A$="6" AND RT=1 THEN NOISE 0,15,1 ELSE IF A$="6" THEN X=X+1:DR=2:GOTO 300
263 IF A$="8" AND UP=1 THEN NOISE 0,15,1 ELSE IF A$="8" THEN Y=Y-1:DR=3:GOTO 300
264 IF A$="2" AND DN=1 THEN NOISE 0,15,1 ELSE IF A$="2" THEN Y=Y+1:DR=4:GOTO 300
265 IF A$=CHR$(27) THEN 1000
266 IF A$="J" OR A$="j" AND JOY=0 THEN JOY=1:PUT(125,180),C1,PSET:FOR V=15 TO 10 STEP -1:SOUND 1,1,V,0:NEXT ELSE IF A$="k" OR A$="K" AND JOY=1 THEN JOY=0:PUT(125,180),C1:FOR V=15 TO 10 STEP -1:SOUND 1,1,V,0:NEXT
267 IF A$=CHR$(13) AND RD2>0 AND S>=15 THEN FOR S=S TO S-15 STEP -1:SOUND 999,.4,15,0:NOISE 4,15,.4:GOSUB 970:NEXT:PUT(115-(RD2*5),175),C3,PSET:RD2=RD2-1:FOR V=5 TO 15 STEP 4:SOUND RND*2000,.5,V,0:NEXT:FOR V=15 TO 0 STEP -2:SOUND 9,1,V,0:NEXT:S=S+1
268 IF JOY=0 THEN 260
270 IF STICK(0)<10 THEN A$="4":GOTO 261 ELSE IF STICK(0)>109 THEN A$="6":GOTO 261
275 IF STICK(1)<10 THEN A$="8":GOTO 261 ELSE IF STICK(1)>109 THEN A$="2":GOTO 261
295 A$=INKEY$:GOTO 266
300 PUT(65,69),MS,PSET:FOR V=15 TO 4 STEP -2:SOUND 700,.7,V,2:NEXT
301 IF DR=2 THEN 320
302 IF DR=3 THEN 330
303 IF DR=4 THEN 340
304 IF DR=1 THEN 310
309 END
310 GET(0,0)-(119,167),ZZ:PUT(15,0),ZZ,PSET
311 X1=0
315 Y1=-21:FOR A=Y-3 TO Y+4:Y1=Y1+21
316 IF A<1 OR A>25 THEN B$="1" ELSE A$=N$(A):IF X-4<1 THEN B$="1" ELSE B$=LEFT$(A$,X-4):B$=RIGHT$(B$,1)
317 GOSUB 900
318 NEXT:GOTO 235
320 GET(15,0)-(134,167),ZZ:PUT(0,0),ZZ,PSET
321 X1=120
325 Y1=-21:FOR A=Y-3 TO Y+4:Y1=Y1+21
326 IF A<1 OR A>25 THEN B$="1" ELSE A$=N$(A):IF X+4>40 THEN B$="1" ELSE B$=LEFT$(A$,X+4):B$=RIGHT$(B$,1)
327 GOSUB 900
328 NEXT:GOTO 235
330 GET(0,0)-(134,146),ZZ:PUT(0,21),ZZ,PSET
331 IF Y-3<1 THEN A$=FL$ ELSE A$=N$(Y-3)
332 Y1=0
335 X1=-15:FOR A=X-4 TO X+4:X1=X1+15
336 IF A<1 OR A>40 THEN B$="1" ELSE B$=LEFT$(A$,A):B$=RIGHT$(B$,1)
337 GOSUB 900
338 NEXT:GOTO 235
340 GET(0,21)-(134,167),ZZ:PUT(0,0),ZZ,PSET
341 IF Y+4>25 THEN A$=FL$ ELSE A$=N$(Y+4)
342 Y1=147
345 X1=-15:FOR A=X-4 TO X+4:X1=X1+15
346 IF A<1 OR A>40 THEN B$="1" ELSE B$=LEFT$(A$,A):B$=RIGHT$(B$,1)
347 GOSUB 900
348 NEXT:GOTO 235
400 REM *TITLE MUSIC* BY BROOKS DEFOREST
405 DATA 131,000,196,000,262,000,196,000,131,000,196,000,262,000,196,000
406 DATA 123,000,175,000,247,000,175,000,123,000,175,000,247,000,175,000
407 DATA 110,000,165,000,220,000,165,000,110,000,165,000,220,000,165,000
408 DATA 098,000,146,000,196,000,146,000,098,000,146,000,196,000,146,000
409 DATA 087,000,131,000,175,000,131,000,087,000,131,000,175,000,131,000
410 DATA 082,000,123,000,165,000,123,000,082,000,123,000,165,000,123,000
411 DATA 087,000,131,000,175,000,131,000,087,000,131,000,175,000,131,000
412 DATA 098,000,146,000,196,000,146,000,098,000,146,000,196,000,146,000
415 DATA 131,659,196,659,262,659,196,659,131,659,196,659,262,659,196,659
416 DATA 123,587,175,587,247,587,175,587,123,587,175,587,247,587,175,587
417 DATA 110,523,165,523,220,523,165,523,110,523,165,523,220,523,165,523
418 DATA 098,494,146,494,196,494,146,494,098,494,146,494,196,494,146,494
419 DATA 087,440,131,440,175,440,131,440,087,440,131,440,175,440,131,440
420 DATA 082,392,123,392,165,392,123,392,082,392,123,392,165,392,123,392
421 DATA 087,440,131,440,175,440,131,440,087,440,131,440,175,440,131,440
422 DATA 098,494,146,494,196,494,146,494,098,494,146,494,196,494,146,494
425 DATA 131,659,196,659,262,659,196,659,131,659,196,659,262,659,196,659
426 DATA 123,587,175,587,247,587,175,587,123,587,175,587,247,587,175,587
427 DATA 110,523,165,523,220,523,165,523,110,523,165,523,220,523,165,523
428 DATA 098,494,146,494,196,494,146,494,098,494,146,494,196,494,146,494
429 DATA 087,440,131,440,175,440,131,440,087,440,131,440,175,440,131,440
430 DATA 082,392,123,392,165,392,123,392,082,392,123,392,165,392,123,392
431 DATA 087,440,131,440,175,440,131,440,087,440,131,440,175,440,131,440
432 DATA 098,494,146,494,196,494,146,494,098,494,146,494,196,494,146,494
436 DATA 131,000,196,000,262,659,196,659,131,698,196,698,262,784,196,000
438 DATA 123,784,175,784,247,659,175,659,123,587,175,587,247,000,175,000
440 DATA 110,000,165,000,220,523,165,523,110,587,165,587,220,659,165,000
442 DATA 098,659,146,659,196,587,146,587,098,523,146,523,196,494,146,494
444 DATA 087,000,131,000,175,440,131,440,087,494,131,494,175,523,131,523
446 DATA 082,392,123,392,165,440,123,440,082,494,123,494,165,523,123,523
448 DATA 087,000,131,000,175,440,131,440,087,494,131,494,175,523,131,523
450 DATA 098,659,146,659,196,587,146,587,098,523,146,523,196,494,146,494
455 DATA 131,000,196,000,262,659,196,659,131,698,196,698,262,784,196,000
456 DATA 123,784,175,784,247,659,175,659,123,587,175,587,247,000,175,000
457 DATA 110,000,165,000,220,523,165,523,110,587,165,587,220,659,165,000
458 DATA 098,659,146,659,196,587,146,587,098,523,146,523,196,494,146,494
459 DATA 087,000,131,000,175,440,131,440,087,494,131,494,175,523,131,523
460 DATA 082,392,123,392,165,440,123,440,082,494,123,494,165,523,123,523
461 DATA 087,000,131,000,175,440,131,440,087,494,131,494,175,523,131,523
462 DATA 098,659,146,659,196,587,146,587,098,523,146,523,196,494,146,494
465 DATA 131,659,196,659,262,659,196,659,131,659,196,659,262,659,196,659
466 DATA 123,587,175,587,247,587,175,587,123,587,175,587,247,587,175,587
467 DATA 110,523,165,523,220,523,165,523,110,523,165,523,220,523,165,523
468 DATA 098,494,146,494,196,494,146,494,098,494,146,494,196,494,146,494
469 DATA 087,440,131,440,175,440,131,440,087,440,131,440,175,440,131,440
470 DATA 082,392,123,392,165,392,123,392,082,392,123,392,165,392,123,392
471 DATA 087,440,131,440,175,440,131,440,087,440,131,440,175,440,131,440
472 DATA 098,494,146,494,196,494,146,494,098,494,146,494,196,494,146,494
475 DATA 131,000,196,000,262,659,196,659,131,698,196,698,262,784,196,000
476 DATA 123,784,175,784,247,659,175,659,123,587,175,587,247,000,175,000
477 DATA 110,000,165,000,220,523,165,523,110,587,165,587,220,659,165,000
478 DATA 098,659,146,659,196,587,146,587,098,523,146,523,196,494,146,494
479 DATA 087,000,131,000,175,440,131,440,087,494,131,494,175,523,131,523
480 DATA 082,392,123,392,165,440,123,440,082,494,123,494,165,523,123,523
481 DATA 087,000,131,000,175,440,131,440,087,494,131,494,175,523,131,523
482 DATA 098,659,146,659,196,587,146,587,098,523,146,523,196,494,146,494
485 DATA 131,000,196,000,262,659,196,659,131,698,196,698,262,784,196,000
486 DATA 123,784,175,784,247,659,175,659,123,587,175,587,247,000,175,000
487 DATA 110,000,165,000,220,523,165,523,110,587,165,587,220,659,165,000
488 DATA 098,659,146,659,196,587,146,587,098,523,146,523,196,494,146,494
489 DATA 087,000,131,000,175,440,131,440,087,494,131,494,175,523,131,523
490 DATA 082,392,123,392,165,440,123,440,082,494,123,494,165,523,123,523
491 DATA 087,000,131,000,175,440,131,440,087,494,131,494,175,523,131,523
492 DATA 098,659,146,659,196,587,146,587,098,523,146,523,196,494,146,494
493 DATA 131,000,196,000,262,000,196,000,131,000,196,000,262,000,196,000
494 DATA 123,000,175,000,247,000,175,000,123,000,175,000,247,000,175,000
495 DATA 110,000,165,000,220,000,165,000,110,000,165,000,220,000,165,000
496 DATA 098,000,146,000,196,000,146,000,098,000,146,000,196,000,146,000
497 DATA 087,000,131,000,175,000,131,000,087,000,131,000,175,000,131,000
498 DATA 082,000,123,000,165,000,123,000,082,000,123,000,165,000,123,000
499 DATA 087,000,131,000,175,000,131,000,087,000,131,000,175,000,131,000
500 DATA 098,000,146,000,196,000,146,000,098,000,146,000,196,000,146,000
501 DATA 131,523,131,523,131,523
502 DATA 131,523,131,523,131,523
503 DATA 131,523,131,523,131,523
504 DATA 131,523,131,523,131,523,999,999
505 IF B=999 THEN RETURN ELSE READ A,B:IF B=999 THEN RETURN ELSE IF C<>B AND B<>0 THEN C=B:V3=11 ELSE IF V3>0 THEN V3=V3-.5
510 IF A=A2 AND V1>0 THEN V1=V1-1 ELSE V1=15:A2=A
511 IF B=B2 AND V2>0 THEN V2=V2-1 ELSE IF B<>0 THEN V2=15:B2=B ELSE IF V2>0 THEN V2=V2-1:B=B2
512 SOUND A,D,V1,0:SOUND B,D,V2,1:SOUND C+1,D,V3,2:SOUND A-.5,D,V1-1,0:SOUND B+1,D,V2,1:SOUND C-2,D,V3,2:SOUND A+.5,D,V1-1,0:SOUND B-1,D,V2,1:SOUND C+1.3,D,V3,2:SOUND A-1,D,V1-1,0:SOUND B-2,D,V2,1:SOUND C+2.3,D,V3,2
513 RETURN
700 REM *LEVEL TUNE*
701 RESTORE 710:VV=15
702 READ A,B,C:VV=VV-.1:IF A=999 THEN RETURN
703 IF A=A2 AND V1>0 THEN V1=V1-1 ELSE V1=VV:A2=A
704 IF B=B2 AND V2>0 THEN V2=V2-1 ELSE V2=VV:B2=B
705 IF C=C2 AND V3>0 THEN V3=V3-1 ELSE V3=VV:C2=C
706 SOUND A,.9,V1,0:SOUND B,.9,V2,1:SOUND C,.9,V3,2:SOUND A-.2,.9,V1,0:SOUND B+.2,.9,V2,1:SOUND C-.2,.9,V3,2:SOUND A+.3,.9,V1,0:SOUND B-.3,.9,V2,1:SOUND C+.3,.9,V3,2
707 AA=AA-3.71:LINE(AA,150)-(AA+4,151),0,BF
708 GOTO 702
710 DATA 87,349,415,175,349,415,87,349,392,175,349,415
711 DATA 87,349,415,175,349,415,87,349,392,175,349,415
712 DATA 69,554,415,104,554,415,139,554,415,104,554,415
713 DATA 78,622,392,117,622,392,156,622,392,117,622,392
714 DATA 87,349,415,175,349,415,87,349,392,175,349,415
715 DATA 87,349,415,175,349,415,87,349,392,175,349,415
716 DATA 69,554,415,104,554,415,139,554,415,104,554,415
717 DATA 78,622,392,117,622,392,156,622,392,117,622,392
718 DATA 87,698,311,131,698,311,175,698,349,131,698,349
719 DATA 999,999,999
720 FOR V=15 TO 0 STEP -1:SOUND 600,.7,V,0:NEXT:GET(20,30)-(114,127),ZZ:LINE(20,30)-(114,127),0,BF:LINE(20,30)-(114,127),15,B:LINE(21,31)-(113,126),7,B:LINE(22,32)-(112,125),8,B:COLOR 10:LOCATE 6,6:PRINT "MESSAGE":RETURN
721 PUT(20,30),ZZ,PSET:RETURN
725 IF Z1=0 THEN Z1=1:GOSUB 720:COLOR 14:LOCATE 8,4:PRINT "AVOID  TURF":LOCATE 10,4:PUT(60,90),E:PRINT "SAPS ENERGY":FOR A=1 TO 100:SOUND RND*300,.5,7,0:SOUND RND*300,.5,7,1:NEXT:GOSUB 721
726 IF LIFE<5 THEN RETURN 1000
727 RETURN
730 IF Z2=0 THEN Z2=1:GOSUB 720:COLOR 14:LOCATE 8,4:PRINT "AVOID WATER":LOCATE 10,6:PUT(60,90),B:PRINT "WASTES":LOCATE 11,6:PRINT "ENERGY":FOR A=1 TO 100:SOUND RND*300,.5,7,0:SOUND RND*300,.5,7,1:NEXT:GOSUB 721
731 IF LIFE<5 THEN RETURN 1000
732 RETURN
735 IF Z3=0 THEN Z3=1:GOSUB 720:COLOR 14:LOCATE 8,4:PRINT "  COLLECT":LOCATE 9,4:PUT(60,90),A8:PRINT " DOOR KEYS":LOCATE 10,4:PRINT " FOR LATER":LOCATE 11,4:PRINT "    USE":FOR A=1 TO 100:SOUND RND*300,.5,7,0:SOUND RND*300,.5,7,1:NEXT:GOSUB 721
736 RETURN
740 IF Z4=0 THEN Z4=1:GOSUB 720:COLOR 14:LOCATE 8,4:PRINT "  COLLECT":LOCATE 9,4:PUT(60,90),I:PRINT "  KEYS FOR":LOCATE 10,4:PRINT "   EXITS":FOR A=1 TO 100:SOUND RND*300,.5,7,0:SOUND RND*300,.5,7,1:NEXT:GOSUB 721:RETURN
741 RETURN
745 IF Z5=0 THEN Z5=1:GOSUB 720:COLOR 7:LOCATE 8,4:PRINT "LIFE FORCE":LOCATE 9,4:PRINT "    IS":LOCATE 10,4:PRINT "  FAILING":PUT(60,90),M:FOR A=1 TO 100:SOUND RND*200,.5,7,0:SOUND RND*200,.5,7,1:NEXT:GOSUB 721:RETURN
746 RETURN
750 Z6=1:GOSUB 720:COLOR 15:LOCATE 8,4:PRINT "ROUND DISCS":LOCATE 9,4:PRINT "  ARE LOW":PUT(60,90),M:FOR A=1 TO 100:SOUND RND*200,.5,7,0:SOUND RND*200,.5,7,1:NEXT:GOSUB 721:RETURN
799 END
800 REM *POW!*
801 FOR A=1 TO P2:IF PX(A)=X AND PY(A)=Y THEN FOR A=500 TO 600 STEP 5:SOUND A,.4,15,0:SOUND A*2,.4,15,1:NEXT:FOR A=500 TO 400 STEP -5:SOUND A,.4,15,0:SOUND A/2,.4,15,1:NEXT:RETURN
802 NEXT:P2=P2+1:PX(P2)=X:PY(P2)=Y:FOR V=15 TO 0 STEP -2:NOISE 5,V,2:FOR P=1 TO 15:PALETTE P,V:NEXT:NEXT:FOR A=1 TO 15:SOUND RND*4000,1,15,0:SOUND RND*1000,1,15,1:PALETTE A,A:NEXT
803 FOR S=S TO S+FIX(LIFE/4):SOUND 19,.5,15,0:NOISE 4,15,.5:GOSUB 970:NEXT:GOSUB 970
804 IF LIFE>35 THEN 806
805 LL=LIFE+10:FOR LIFE=0 TO LL STEP 5:PUT(LIFE+20,189),R,PSET:FOR V=15 TO 6 STEP  -2:FOR A=1400 TO 999 STEP -90:SOUND A,.4,V,0:SOUND A/2,.4,V,1:NOISE 6,V,.4:NEXT:NEXT:NEXT
806 RETURN
810 FOR A=1 TO T2:IF X=TX(A) AND Y=TY(A) THEN NX=GX(A):NY=GY(A):GOTO 815
811 NEXT:SCREEN 2:PRINT "Teleport found at location:":PRINT "x="X,"y="Y:PRINT "Counter is at "T2:END
815 B=1:VIEW SCREEN (0,0)-(135,167):FOR A=1 TO 7:B=B+B:LINE(67-B,83-B)-(67+B,83+B),0,BF:FOR Z=B TO B+1000 STEP 55:SOUND Z,.4,15,0:SOUND Z/2,.4,15,1:NEXT:NEXT
816 PUT(54,0),TITLE:FOR A=1 TO 30:RX=RND*134:RY=RND*167
817 PSET(RX,RY-1),12:PSET(RX+1,RY),12:PSET(RX-1,RY),12:PSET(RX,RY+1),12:PSET(RX,RY),14:SOUND RND*2000,.5,15,0:SOUND RND*900,.5,15,1
818 NEXT:PTS=LV*4:IF PTS<8 THEN PTS=8
819 COLOR 10:LOCATE 5,6:PRINT "TELEPORT":COLOR 3:LOCATE 10,2:PRINT "CREDITS REQUIRED":LOCATE 12,4:PRINT PTS"POINTS":COLOR 11:LOCATE 18,2:PRINT "OK":LOCATE 18,11:PRINT "RETURN"
820 O=2
821 PLAY "A40":IF O=1 THEN COLOR 15:LOCATE 18,1:PRINT "~":LOCATE 18,4:PRINT "~":LOCATE 18,10:PRINT " ":LOCATE 18,17:PRINT " " ELSE COLOR 15:LOCATE 18,1:PRINT " ":LOCATE 18,4:PRINT " ":LOCATE 18,10:PRINT "~":LOCATE 18,17:PRINT "~"
822 IF JOY=1 AND STICK(0)<10 THEN A$="4" ELSE IF JOY=1 AND STICK(0)>100 THEN A$="6" ELSE IF JOY=1 AND STRIG(1)=-1 THEN A$=" " ELSE A$=INKEY$:IF A$="" THEN 822
823 IF A$="4" AND S>=PTS THEN O=1:GOTO 821 ELSE IF A$="6" THEN O=2:GOTO 821
824 IF A$=" " THEN 825 ELSE 822
825 VIEW SCREEN(0,0)-(159,199)
826 IF O=2 THEN LINE(0,0)-(135,167),0,BF:FOR V=15 TO 0 STEP -1:SOUND 400,1,V,0:SOUND 999,1,V,1:NEXT:X=OX:Y=OY:RETURN 200
827 SS=S:X=NX:Y=NY:FOR S=S TO S-PTS STEP -1:SOUND 1,.5,15,0:SOUND 999,.5,15,1:NOISE 5,15,.5:GOSUB 970:NEXT:S=SS-PTS
828 LINE(0,0)-(135,167),0,BF:FOR V=15 TO 0 STEP -.5:SOUND RND*3000,.5,V,0:SOUND RND*2000,.5,V,1:NOISE 5,V,.6:NEXT:FOR P=15 TO 0:PALETTE 0,P:NEXT:RETURN 200
830 REM *MYSTRY TILE*
831 FOR A=1 TO M2:IF X=QX(A) AND Y=QY(A) THEN 833
832 NEXT:GOTO 835
833 FOR A=1000 TO 100 STEP -100:SOUND A,.6,15,0:SOUND A/2,.6,15,1:SOUND A*2,.6,15,2:NEXT:SS=S/4:FOR S=S TO (S+1)-SS STEP -1:NOISE 4,15,.5:SOUND 1,.5,15,0:SOUND 400,.3,15,1:GOSUB 970:NEXT:GOSUB 970:RETURN
835 M2=M2+1:QX(M2)=X:QY(M2)=Y
836 A=1:FOR V=15 TO 3 STEP -.5:A=A+22:B=500+20*COS(A):SOUND B,1,V,0:SOUND B/2,1,V,1:SOUND B/4,1,V,2:NEXT
837 DO=FIX(RND*4):IF DO=0 OR DO=4 THEN DO=1
838 IF DO=1 THEN SS=S/2:ST=FIX(RND*SS):FOR S=S TO (S+1)-SS STEP -1:NOISE 4,15,.5:SOUND 1,.5,15,0:SOUND 600,.3,15,1:GOSUB 970:NEXT:GOSUB 970:RETURN
839 IF DO=2 THEN SS=S/4:ST=FIX(RND*SS):FOR S=S TO S+SS:NOISE 5,15,.5:SOUND 1100,.5,15,0:SOUND 200,.3,15,1:GOSUB 970:NEXT:GOSUB 970:RETURN
840 IF DO=3 THEN WLK=10:FOR V=15 TO 0 STEP -1:NOISE 4,V,.5:NOISE 7,V,.5:SOUND V*V,.8,V,0:SOUND 1,.6,V,1:NEXT:PUT(142,150),C4,PSET:RETURN
841 RETURN
850 REM *DOOR TILE*
851 FOR A=1 TO D2:IF X=WX(A) AND Y=WY(A) THEN 855
852 NEXT:FOR V=15 TO 0 STEP -1:NOISE 4,V,.5:NOISE 6,V,.5:NEXT:X=OX:Y=OY:ODR=DR:IF ODR=1 THEN DR=2 ELSE IF ODR=2 THEN DR=1 ELSE IF ODR=3 THEN DR=4 ELSE IF ODR=4 THEN DR=3
853 ODR=DR:RETURN 300
855 FOR A=300 TO 1200 STEP 75:SOUND A,.5,15,0:SOUND A/2,.5,15,1:NEXT:FOR V=15 TO 0 STEP -1:SOUND 1205,.5,V,0:SOUND 605,.5,V,1:NEXT:RETURN
860 REM *DOOR KEY* ~BLACK HOLE~
861 FOR A=1 TO H2:IF X=EX(A) AND Y=EY(A) THEN AL=A:GOTO 863
862 NEXT:RETURN
863 D2=D2+1:WX=JX(A):WY=JY(A):WX(D2)=WX:WY(D2)=WY:FOR V=15 TO 0 STEP -1:SOUND 200,1,V,0:SOUND 1,1,V,1:NEXT:EX(AL)=0:EY(AL)=0:RETURN
900 IF B$="0" THEN PUT(X1,Y1),A,PSET:RETURN
901 IF B$="1" THEN PUT(X1,Y1),F,PSET:RETURN
902 IF B$="2" THEN PUT(X1,Y1),B,PSET:RETURN
903 IF B$="3" THEN PUT(X1,Y1),C,PSET:RETURN
904 IF B$="4" THEN PUT(X1,Y1),D,PSET:RETURN
905 IF B$="5" THEN PUT(X1,Y1),E,PSET:RETURN
906 IF B$="6" THEN PUT(X1,Y1),A2,PSET:RETURN
907 IF B$="7" THEN PUT(X1,Y1),A3,PSET:RETURN
908 IF B$="8" THEN PUT(X1,Y1),A4,PSET:RETURN
909 IF B$="9" THEN PUT(X1,Y1),A5,PSET:RETURN
910 IF B$="A" THEN PUT(X1,Y1),A6,PSET:RETURN
911 IF B$="B" THEN PUT(X1,Y1),A7,PSET:RETURN
912 IF B$="C" THEN PUT(X1,Y1),A8,PSET:RETURN
913 IF B$="D" THEN PUT(X1,Y1),A9,PSET:RETURN
940 IF B$="!" THEN PUT(X1,Y1),G,PSET:RETURN
941 IF B$="?" THEN PUT(X1,Y1),H,PSET:RETURN
942 IF B$="@" THEN PUT(X1,Y1),I,PSET:RETURN
943 IF B$="*" THEN PUT(X1,Y1),J,PSET:RETURN
944 IF B$="+" THEN PUT(X1,Y1),K,PSET:RETURN
945 IF B$="&" THEN PUT(X1,Y1),L,PSET:RETURN
950 RETURN
955 FOR A=1 TO L2:IF LX(A)=X AND LY(A)=Y THEN FOR V=2 TO 15:SOUND 300,1,V,0:SOUND 600,1,V,1:SOUND V*19,1,V,2:NEXT:RETURN
956 NEXT:L2=L2+1:LX(L2)=X:LY(L2)=Y
957 FOR V=0 TO 15 STEP 2:SOUND 900+V,1,V,0:SOUND V*34,1,V,1:SOUND V*19,1,V,2:NEXT:FOR V=15 TO 0 STEP -1:SOUND RND*1000,1,V,0:SOUND RND*400,1,V,1:SOUND RND*2000,1,V,2:NEXT
958 KEYS=KEYS+1:KY=90+(KEYS*3):IF KEYS/2=FIX(KEYS/2) THEN KX=140 ELSE KX=150
959 FOR V=15 TO 1 STEP -1:SOUND 999,1,V,0:NEXT:PK=PK+1
960 PUT(KX,KY),X:S=S+1:GOSUB 970
961 KS=KEYS/KTOT:IF KS=>1 THEN PUT(139,175),W,PSET ELSE IF KS=>.75 THEN PUT(139,175),V,PSET ELSE IF KS>=.5 THEN PUT(139,175),U,PSET
962 RETURN
970 COLOR 7:S$=STR$(S):S$=RIGHT$(S$,LEN(S$)-1):S2$=STRING$(3-LEN(S$),"0"):LOCATE 8,18:PRINT S2$+S$:RETURN
975 IF KEYS<KTOT THEN RETURN ELSE RETURN 976
976 DR=0:A=900:FOR V=15 TO 0 STEP -1:DR=DR+1:A=A-25:IF DR=5 THEN DR=1
977 IF DR=1 THEN PUT(65,69),O,PSET ELSE IF DR=2 THEN PUT(65,69),N,PSET ELSE IF DR=3 THEN PUT(65,69),Q,PSET ELSE PUT(65,69),P,PSET
978 SOUND A,.7,V,0:SOUND A*2,.7,V,1:SOUND A/4,.7,V,2:NEXT:PUT(65,69),MS,PSET
979 FOR A=0 TO 67 STEP 5:LINE(A,0)-(A+5,167),0,BF:LINE(134-A,0)-(129-A,167),0,BF:NEXT
980 PUT(45,0),TITLE:LV=LV+1
981 COLOR 4:LOCATE 8,3:PRINT "PREPAIR FOR":LOCATE 10,5:PRINT "LEVEL"LV
982 COLOR 5:LOCATE 15,2:PRINT "ENERGY AT"FIX(LIFE/.8)"%":Z6=0
983 LINE(0,150)-(134,150),10:LINE(0,151)-(134,151),2
984 AA=134:GOSUB 700
985 IF LV=1 THEN RESTORE 100 ELSE IF LV=2 THEN RESTORE 5000 ELSE IF LV=3 THEN RESTORE 5100 ELSE IF LV=4 THEN RESTORE 5200 ELSE IF LV=5 THEN RESTORE 5300 ELSE IF LV=6 THEN RESTORE 5350
988 FOR N=1 TO 25:READ N$(N):NEXT:KEYS=0:L2=0:P2=0:T2=0:M2=0:H2=0:D2=0:LINE(135,90)-(159,149),0,BF:PUT(139,175),T,PSET:FOR A=30 TO 110 STEP 5:PUT(A,175),C3,PSET:NEXT
989 RD1=0:RD2=0
990 IF LV=1 THEN KTOT=4:X=2:Y=2 ELSE IF LV=2 THEN KTOT=5:X=5:Y=3 ELSE IF LV=3 THEN KTOT=3:X=1:Y=1:T2=1:TX(1)=23:TY(1)=25:GX(1)=35:GY(1)=3 ELSE IF LV=4 THEN KTOT=5:X=12:Y=3:T2=1:TX(1)=37:TY(1)=16:GX(1)=1:GY(1)=23:H2=1:EX(1)=21:EY(1)=6:JX(1)=10:JY(1)=17
991 IF LV=5 THEN KTOT=5:X=10:Y=2:T2=1:TX(1)=22:TY(1)=10:GX(1)=10:GY(1)=19:H2=2:EX(1)=1:EY(1)=11:JX(1)=32:JY(1)=13:EX(2)=39:EY(2)=17:JX(2)=28:JY(2)=5 ELSE IF LV=6 THEN KTOT=6:X=6:Y=12
998 LINE(0,0)-(134,167),0,BF:GOTO 200
999 END
1000 FOR V=15 TO 0 STEP -1:NOISE 5,V,1:NOISE 7,V,1.2:PALETTE 0,V:COLOR ,V:FOR P=1 TO 100:NEXT:NEXT
1005 PUT(60,63),M,PSET
1010 FOR V=15 TO 0 STEP -1:FOR Z=900 TO 100 STEP -100:SOUND Z,.5,V,0:SOUND Z*4,.5,V,1:NOISE 7,V,.5:NEXT:NEXT
1015 SCREEN 4:PALETTE 0,0:PALETTE 1,15:PALETTE 2,10:PALETTE 3,12:COLOR 1,0:CLS
1016 IF TKYS=0 THEN TKYS=100
1020 FOR A=1 TO 50:SOUND RND*999,.2,15,0:SOUND RND*999,.2,15,1:SX=RND*319:SY=RND*199:PSET(SX,SY),2:PSET(SX,SY-1),3:PSET(SX,SY+1),3:PSET(SX-1,SY),3:PSET(SX+1,SY),3:NEXT
1025 COLOR 1:LOCATE 3,11:PRINT "POST GAME INFORMATION"
1026 FOR V=15 TO 0 STEP -1:SOUND RND*2000,1,V,0:SOUND RND*1000,1,V,1:NEXT
1030 COLOR 2:LOCATE 10,5:PRINT "LEVEL REACHED:"LV:LOCATE 12,5:PRINT "TOTAL SCORE  :"S
1035 LOCATE 16,10:PRINT "GAME COMPLETED :"FIX(PK/(TKYS/100))"%":V1=15:V2=0:A2=0:B2=0:B=0:RESTORE 400:D=1.3:V3=10:RT=0
1040 COLOR 3:LOCATE 24,9:PRINT "PRESS SPACE TO CONTINUE":WHILE INKEY$<>" ":SOUND RND*400,.4,10,0:SOUND RND*400,.4,10,1:WEND
1050 CLS
1055 FOR A=1 TO 50:SOUND RND*999,.2,15,0:SOUND RND*999,.2,15,1:SOUND RND*2000,.2,15,2:SX=RND*319:SY=RND*199:PSET(SX,SY),2:PSET(SX,SY-1),3:PSET(SX,SY+1),3:PSET(SX-1,SY),3:PSET(SX+1,SY),3:NEXT
1056 COLOR 2:LOCATE 1,12:PRINT "TOP TEN EXPO-SERS":COLOR 1
1060 HT=0:FOR A=1 TO 10:IF S>VAL(SC$(A)) AND HT=0 THEN HT=A:LOCATE A+5,12:PRINT "---":LOCATE A+5,26:SC$(A)=S2$+S$:PRINT SC$(A):A=A-1 ELSE LOCATE A+5,12:PRINT NM$(A):LOCATE A+5,26:PRINT SC$(A)
1061 COLOR 3:LOCATE A+5,17:PRINT STRING$(7,"-"):COLOR 2
1065 NEXT
1070 IF HT<>0 THEN 1080 ELSE SOUND ON
1075 COLOR 3:LOCATE 24,9:PRINT "PRESS SPACE TO CONTINUE":WHILE INKEY$<>" ":SOUND RND*400,.4,10,0:SOUND RND*400,.4,10,1:SOUND RND*200,.4,5,2:PALETTE 1,RND*15:WEND:SCREEN 3:GOTO 90
1080 COLOR 3:LOCATE 24,13:PRINT "ENTER YOUR NAME"
1081 COLOR 1:SOUND ON
1082 N$="":LOCATE HT+5,12:PRINT "---":FOR A=10 TO HT STEP -1:SC$(A)=SC$(A-1):NM$(A)=NM$(A-1):NM$(HT)="":SC$(HT)=S2$+S$:NEXT
1083 A$=INKEY$:GOSUB 500:PALETTE 1,RND*14:IF A$="" THEN 1083
1084 IF ASC(A$)=27 THEN N$="":LOCATE HT+5,12:PRINT "---":FOR V=15 TO 0 STEP -2:NOISE 4,15,.5:NEXT:GOTO 1083 ELSE IF ASC(A$)<32 THEN 1083
1085 N$=N$+A$:LOCATE HT+5,12:PRINT N$:FOR V=15 TO 0 STEP -2:NOISE 5,V,1:NEXT:IF LEN(N$)=3 THEN NM$(HT)=N$:SCREEN 3:GOTO 99 ELSE 1083
5000 DATA 00A000A000A001111A0505002A05000A01A05000
5001 DATA 0000A0100010A0012220A0022000A1000100A0A0
5002 DATA 00110100101A00A1222220021110010111110500
5003 DATA 1110000A1022222022@222020010000100500001
5004 DATA 00101110002000200A0220020010115101010011
5005 DATA 11000000A020102000A00002A000010001010000
5006 DATA 2122222222201022222222220010110111011100
5007 DATA 411111111520000A100A00000A10@10000010000
5008 DATA 4440A05010251111111111111111110100111101
5009 DATA 24440A001111110A000000000000000100000101
5010 DATA 2224400A002222211111110111111111111001@1
5011 DATA 2224400011111111000000001000010000100111
5012 DATA 222444A001000022222221111222212220100001
5013 DATA 22225400010A0A00000AA1A2000100A020101001
5014 DATA 2222444001111111011111A201A001A020101001
5015 DATA 22224444A0A0000A01A001A2A001A00020101111
5016 DATA 22224454400A100000A001A2A001000020000000
5017 DATA 22224444400A0100111111A200A00A1022222222
5018 DATA 2222444444000000102222220001AA0000002222
5019 DATA 220244444400A00012222222000000100000000*
5020 DATA 2222244444000000122111101111111118111111
5021 DATA 2222244444440000122100001888188818188888
5022 DATA 24422224444441111221000018!8188818188188
5023 DATA 2@42222222222222222100@01888188888888188
5024 DATA 222222222200011111110000188888881818818!
5100 DATA 2222222222222222222444444410A000A3030333
5101 DATA 222224442222224422222244441101@030A03053
5102 DATA 2222244422222222222222224410A030A1003002
5103 DATA 222224422222222222222222241000500A300A00
5104 DATA 222224422222244222222222221001003130A000
5105 DATA 2222244444444444442222222211111111100000
5106 DATA 2222224222222444422222222222244444410300
5107 DATA 2244444222222242222222222422222222413333
5108 DATA 2242242222222442222222245442222224410300
5109 DATA 2444222222222442222224400442222224410030
5110 DATA 24422222222222422222450@0422222224413000
5111 DATA 2222244422244442222224404422222224415555
5112 DATA 2222444444442242222222244222222224410300
5113 DATA 2222244422222242222222222222222222415350
5114 DATA 2222224422222242222222222222222222413535
5115 DATA 0222224422222222222222444222444222410300
5116 DATA 0222224422222222222222222222222222410003
5117 DATA 00222204444444444222222222222222224130*0
5118 DATA @002222222222222444422222222222222410030
5119 DATA 0000022222222222222222222222222222411111
5120 DATA 2222244422222222222222444222222222222222
5121 DATA 2222414142422242422444444422222222222222
5122 DATA 1111113111111111111111111422222224444422
5123 DATA 33!331333333338888881888142222444400A444
5124 DATA 3333333333313318?88888&812224400A00A00A0
5200 DATA 1711111111111111777777777777777771177711
5201 DATA 1777777777777771711111111111711177771111
5202 DATA 171111117117111177777777@777771171177771
5203 DATA 17777711711777777111111117111111711711!1
5204 DATA 1717171177771111711117111711111171171171
5205 DATA 17171711711111117777C7111777771171171111
5206 DATA 1717177771171111111171111111171171177777
5207 DATA 1717111177777711111177777711177771111117
5208 DATA 1717777771711117@77111171711171117777717
5209 DATA 1711117111711117117111171777771117111777
5210 DATA 1777777111777777777777771711171117111711
5211 DATA 1171117111111111111111111777777777711711
5212 DATA 1177777111177777771111111111111111711711
5213 DATA 1171111771771171177777777777777771711777
5214 DATA 17777@7111711177771171171111711171711717
5215 DATA 1711711111711117111171177777777@7177&717
5216 DATA 1!1177777+71111!111171111117111171111717
5217 DATA 1711111711777777777771111177777771777717
5218 DATA 1777777711111711171177777771117111171117
5219 DATA 1117111711111711171111711177777111177777
5220 DATA 1777111771777711177777711111177771771111
5221 DATA 1111111111111111111111111111111111111111
5222 DATA 0001000A000A0000000A000050500?0050009999
5223 DATA 50000100AA0000A00@0000500505050005099*99
5224 DATA 550100000000A0000A00A0050005005550009999
5300 DATA 0A0000000000A0000A00000A0AA1555555A1888@
5301 DATA 000A00AA0000000A0000A00000A1555555A18888
5302 DATA 00001111111110011111111111A1555555A18888
5303 DATA 0A00100000A0000A0000005050A1555555511511
5304 DATA 0000100A00007777000A0050500+555555AA555A
5305 DATA 00A01000007772277700005050A1555555555555
5306 DATA 00!01A00072222222700005050A1555555555555
5307 DATA 0000100007222D@22270000000A1111111111111
5308 DATA 00A0100007222DD222700A0000AAAAAAA2222222
5309 DATA 1101100A0722222222700&0000A0000000222222
5310 DATA C00010000077722777000000A0000000A0022222
5311 DATA 00001000A0000770000A0000000000A000002222
5312 DATA 000A100000000000A00011111111111+11111111
5313 DATA 0A000000000000A0000011666666661666666666
5314 DATA 000000A000004400000011611111661666161666
5315 DATA 00A0100000A4444A00A011666661661116161666
5316 DATA 00001000000A44000000116166616666661616C6
5317 DATA 101111111111111111111161?666661666161111
5318 DATA 000@133333333333333311611111111666166666
5319 DATA A0001333333333*33333116666616666161666?6
5320 DATA 1100111111111111111111666666666166666666
5321 DATA 22221@6666616666666666611111111111161111
5322 DATA 222211111161166111666101000A0000000A0000
5323 DATA 222216661666666166616101000A0!A000000@00
5324 DATA 2?221666666611116661600100A00000A0000000
5350 DATA 1111111111111111111111111111111111111111
5351 DATA 1D1DDD1DDD1DDD1@DD1DDDD1D1DDDDDDDDD1D?D1
5352 DATA 1D1D1D1D1DDD1D1D1DDD11D1D1D1111111D1D1D1
5353 DATA 1D1D1D1D1?1D1D1D1D1111D1DDDD1?1D11DDDDD1
5354 DATA 1D1D11111D1111111D1111D11D1D1DDD11111D11
5355 DATA 1D1DDDDDDDDDDDD1DD1111D11D1D1D1D1DDDD!11
5356 DATA 1D111111111111D1D1DDDDDD1D1DDD1DDD111111
5357 DATA 1DDDDDDDDDDDD1D1D1D111D11D11D111D11DDDDD
5358 DATA 111D11111111D1D1D1D1D1D11D11DDD1D1@D1D1D
5359 DATA 1D1D1DDDDDD1D1D1?1D1D1DDDDD111D1D1D11DDD
5360 DATA 1D1D1D1D11D1D1D1D1D1D1D111DDD1D1D1D11D11
5361 DATA 1DDD1D1DD1D1DDD1D1D1D1DDDD11D1D1DDD11DDD
5362 DATA 1D1D111111D111D1@1D1D1111D11*1D111111D1D
5363 DATA 1D1DDDDDDDD111DDD1D1D1DDDDD1D1DDDDDDDD1D
5364 DATA 1D11111111D1111111D1D1D1D111D111D111111D
5365 DATA 1DD@DDDDD1DDDDDDDDD1D1D1DDD1DDDDD11DDDDD
5366 DATA 1D1111D1D11111111111D1DDD1D1111111D1D111
5367 DATA 1DDDD1D1DDDDDDDDDD!DD11D11DDDDDDDDD1DDDD
5368 DATA 1D11D1D111D1D11D1D11111D111111111D11D11D
5369 DATA 1D11D1DDDDD1DDDD1DDDDDDDDDDDDDDDDD11D111
5370 DATA 1D1111111111111111111111111111111111D111
5371 DATA 1D11D1111D1DDDD1DDDDDDDDD1DDDDDDDDDDD111
5372 DATA 1D11DDDDDD1D1D11D11111111111111D1D1111DD
5373 DATA 1DDDD11D111D1DDDDDD@DDD11D11D11D1D11D11D
5374 DATA 1111111DDDDD11111?1111?11D!DDDDD1DDDDDD@
